ProGames 6/PROGAMES.iso/player.dxr/00002_Slide Frame Behaviour.ls

Text File | 2003-06-22 | 5.3 KB | 196 lines

property slideList, currentPositionInList
global soundActive, whichMenu, previewMode, firstmovie

on beginSprite me
  activateFrameSound(the frameLabel)
  myFrameName = the frameLabel
  forwardButton = 1
  backButton = 1
  slideList = []
  doesSlideExist = 0
  repeat with n = 1 to member("settings").text.lines.count
    if member("settings").text.line[n].item[1] contains myFrameName.char[1..8] then
      if member("settings").text.line[n].item[3] = 1 then
        add(slideList, member("settings").text.line[n].item[1])
      end if
    end if
  end repeat
  sort(slideList)
  repeat with n = 1 to slideList.count
    if getAt(slideList, n) = myFrameName then
      currentPositionInList = n
    end if
  end repeat
  if slideList.count = 3 then
    if myFrameName.char[9] = getAt(slideList, 1).char[9] then
      backButton = 0
    end if
    if myFrameName.char[9] = getAt(slideList, 3).char[9] then
      forwardButton = 0
    end if
  end if
  if slideList.count = 2 then
    if myFrameName.char[9] = getAt(slideList, 1).char[9] then
      backButton = 0
    end if
    if myFrameName.char[9] = getAt(slideList, 2).char[9] then
      forwardButton = 0
    end if
  end if
  if slideList.count = 1 then
    backButton = 0
    forwardButton = 0
  end if
  if backButton = 0 then
    sprite(18).blend = 10
  else
    sprite(18).blend = 100
  end if
  if forwardButton = 0 then
    sprite(19).blend = 10
  else
    sprite(19).blend = 100
  end if
end

on exitFrame me
  case the rollover of
    18:
      if sprite(18).blend > 40 then
        if member("button text").text <> "Previous" then
          member("button text").text = "Previous"
        end if
      end if
    19:
      if sprite(19).blend > 40 then
        if member("button text").text <> "Next" then
          member("button text").text = "Next"
        end if
      end if
    20:
      if sprite(20).blend > 40 then
        if member("button text").text <> member("mainmenu title").text then
          member("button text").text = member("mainmenu title").text
        end if
      end if
    21:
      if sprite(21).blend > 40 then
        if member("button text").text <> "Exit" then
          member("button text").text = "Exit"
        end if
      end if
    otherwise:
      if member("button text").text <> EMPTY then
        member("button text").text = EMPTY
      end if
  end case
  go(the frame)
end

on mouseUp me
  if firstmovie = 1 then
    case the rollover of
      18:
        if sprite(18).blend > 40 then
          if soundActive = 1 then
            puppetSound(4, "click")
          end if
        end if
        if sprite(18).blend > 40 then
          play frame getAt(slideList, currentPositionInList - 1)
        end if
      19:
        if sprite(19).blend > 40 then
          if soundActive = 1 then
            puppetSound(4, "click")
          end if
        end if
        if sprite(19).blend > 40 then
          play frame getAt(slideList, currentPositionInList + 1)
        end if
      20:
        if sprite(20).blend > 40 then
          if soundActive = 1 then
            puppetSound(4, "click")
          end if
        end if
        play frame whichMenu
      21:
        if sprite(21).blend > 40 then
          if soundActive = 1 then
            puppetSound(4, "click")
          end if
        end if
        userending = 0
        repeat with checkexit = 1 to member("settings").text.lines.count
          if member("settings").text.line[checkexit].item[1] = "endslide" then
            if member("settings").text.line[checkexit].item[3] = 1 then
              userending = 1
            end if
          end if
        end repeat
        if userending = 1 then
          play frame "endslide"
        else
          if previewMode = 1 then
            play movie "layout"
          else
            play frame "exitframe"
          end if
        end if
    end case
  else
    firstmovie = 1
    case the rollover of
      18:
        if sprite(18).blend > 40 then
          if soundActive = 1 then
            puppetSound(4, "click")
          end if
        end if
        if sprite(18).blend > 40 then
          play frame string(getAt(slideList, currentPositionInList - 1) & "-a")
        end if
      19:
        if sprite(19).blend > 40 then
          if soundActive = 1 then
            puppetSound(4, "click")
          end if
        end if
        if sprite(19).blend > 40 then
          play frame string(getAt(slideList, currentPositionInList + 1) & "-a")
        end if
      20:
        if sprite(20).blend > 40 then
          if soundActive = 1 then
            puppetSound(4, "click")
          end if
        end if
        play frame whichMenu
      21:
        if sprite(21).blend > 40 then
          if soundActive = 1 then
            puppetSound(4, "click")
          end if
        end if
        userending = 0
        repeat with checkexit = 1 to member("settings").text.lines.count
          if member("settings").text.line[checkexit].item[1] = "endslide" then
            if member("settings").text.line[checkexit].item[3] = 1 then
              userending = 1
            end if
          end if
        end repeat
        if userending = 1 then
          play frame "endslide-a"
        else
          if previewMode = 1 then
            play movie "layout"
          else
            play frame "exitframe"
          end if
        end if
    end case
  end if
end